home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / src / editors / CED / rexx / ErrorMove.ced < prev    next >
Encoding:
Text File  |  1995-12-24  |  1.0 KB  |  50 lines
  1. /*
  2. **      $Id: ErrorMove.ced,v 30.0 1994/06/10 18:06:06 dice Exp $
  3. **
  4. **      DICE Error Parsing system.  Script for ASDG CygnusED Professional (tm).
  5. **
  6. **  Notes: This assumes that your DCC:Config/DCC.Config file contains the
  7. **         following line:
  8. **
  9. **  cmd= rx DCC:Rexx/CED_ErrorParse.rexx %e "%c" "%f" "%0"
  10. */
  11.  
  12. PARSE UPPER ARG COMMAND  /* Valid commands: Current First Next Prev */
  13.  
  14. OPTIONS RESULTS
  15.  
  16. IF ~show('p','DICE_ERROR_PARSER') THEN
  17.    DO
  18.       'DM Error Parsing Not Active'
  19.       EXIT 0
  20.    END
  21.  
  22. ADDRESS DICE_ERROR_PARSER COMMAND E
  23. IF rc ~= 0 THEN
  24.    DO
  25.       'DM No More Errors'
  26.       exit 0
  27.    END
  28.  
  29. IF E.LINE = 0 THEN
  30.    DO
  31.    IF LEFT(E.TEXT, 5) = 'DLINK' THEN
  32.       DO
  33.          TT = TRANSLATE(E.STRING, '-', '"')
  34.          /* This is a DLINK error, we need to handle it special */
  35.          'okay2 "There were DLINK Errors" PROMPT "'TT'"'
  36.          exit 0
  37.       END
  38.    END
  39.  
  40. 'OW' E.FPATH
  41. IF RC ~= 0 THEN
  42.    DO
  43.       'DM Unable to open' E.FPATH
  44.       exit 0
  45.    END
  46.  
  47. 'LL' E.Line
  48. /* We really want to position them on the column E.COL here */
  49. 'DM' E.STRING
  50.